home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs06.d81 / micro.arc / MICROFILE (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  33 lines
  1. 100 REM   SAVE "0:MICROFILE",8
  2. 150 REM VERSION "1.07[201]"
  3. 200 REM BOOT AND MENU PROGRAM FOR "[205][201][195][210][207][198][201][204][197]"
  4. 250 POKE 53280,14:POKE53281,6
  5. 300 IF LD=1 THEN 2000
  6. 550 IF PEEK(2)=1 THEN 2000
  7. 600 PRINT CHR$(14);"[147][159][205][201][195][210][207][198][201][204][197] [196]ATABASE [211]YSTEM"
  8. 700 PRINT "[152][195]OPYRIGHT 1985 BY [194]OB [193]ITKEN"
  9. 710 PRINT "[156][211]UPPLIED BY [198][213][212][213][210][197] [195][207][206][195][197][208][212][211]"
  10. 720 PRINT "[156]7501 - 113TH. [211]TREET"
  11. 730 PRINT "[156][196]ELTA, [194].[195]., [195]ANADA. [214]4[195] 5[194]2"
  12. 740 PRINT "[156][208]HONE (604) 591-3086"
  13. 800 GOSUB 5000
  14. 1000 LD=1:LOAD "[205][198]000*",8,1
  15. 2000 PRINT CHR$(14);"[147][159][205][201][195][210][207][198][201][204][197] [196]ATABASE [211]YSTEM"
  16. 2100 PRINT "[158][205][197][206][213][146][154]"
  17. 2200 PRINT "[208]RESS F1 FOR DATA MANAGEMENT[146][154]"
  18. 2300 PRINT "[208]RESS F3 FOR DOCUMENTATION"
  19. 2400 PRINT "[208]RESS F5 FOR INTRODUCTION TO [205][201][195][210][207][198][201][204][197]"
  20. 2500 PRINT "[208]RESS F8 TO END SESSION[146][154]"
  21. 3500 GET R$:IF R$="" THEN 3500
  22. 3600 IF R$=CHR$(133) THEN N$="[205][198]001*":GOTO 6000
  23. 3700 IF R$=CHR$(134) THEN N$="[205][198]002*":GOTO 6000
  24. 3800 IF R$=CHR$(135) THEN N$="[205][198]003*":GOTO 6000
  25. 3900 IF R$=CHR$(140) THEN PRINT CHR$(142);"[147]";:END
  26. 3950 GOTO 3500
  27. 5000 PRINT "[158][204]OADING MACHINE LANGUAGE PROGRAMS"
  28. 5100 PRINT "[154][212]AKES A MOMENT"
  29. 5999 RETURN
  30. 6000 GOSUB 5000
  31. 6050 POKE 2,0
  32. 6100 LOAD N$,8,1
  33.